home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / td187src.lzh / MAGICTYP.I < prev    next >
Text File  |  1991-06-08  |  2KB  |  86 lines
  1. (*######################################################################
  2.                                                                         
  3.         MAGIC         Modula's  All purpose  GEM  Interface  Cadre
  4.                       ¯         ¯            ¯    ¯          ¯
  5. ########################################################################
  6.  
  7.                 Typdeklarationen nach Profibuch, Anhang C
  8.  
  9.                     Implementation für Megamax-Modula-2
  10.  
  11. ########################################################################
  12.   V2.00  16.10.90  Peter Hellinger      Anpassung an neues MagicSys
  13.   V1.04  05.08.90  Peter Hellinger
  14.   V1.00  (C) by    Peter Hellinger
  15. ######################################################################*)
  16.  
  17. IMPLEMENTATION MODULE MagicTypes;
  18.  
  19. FROM SYSTEM IMPORT ASSEMBLER, BYTE, ADDRESS;
  20. FROM MagicSys   IMPORT  Nil, Null,
  21.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  22.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15,
  23.                         Byte, ByteSet,
  24.                         sWORD, sINTEGER, sCARDINAL, sBITSET,
  25.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  26. IMPORT MagicSys;
  27.  
  28.  
  29.  
  30. VAR a: ADDRESS;
  31.  
  32. PROCEDURE LineA (): PtrLINEA;
  33. BEGIN
  34.  ASSEMBLER
  35.   DC.W    0A000H;         LineA initialisieren
  36.   MOVE.L  D0, a
  37.  END;
  38.  RETURN a;
  39. END LineA;
  40.  
  41.  
  42. PROCEDURE LineAFonts (): PtrLINEAFonts;
  43. BEGIN
  44.  ASSEMBLER
  45.   DC.W    0A000H;         LineA initialisieren
  46.   MOVE.L  A1, a
  47.  END;
  48.  RETURN a;
  49. END LineAFonts;
  50.  
  51.  
  52. PROCEDURE Vdiesc (): PtrVDIESC;
  53. BEGIN
  54.  ASSEMBLER
  55.   DC.W    0A000H;         LineA initialisieren
  56.   MOVE.L  D0, a
  57.  END;
  58.  RETURN a - ADDRESS (038EH);
  59. END Vdiesc;
  60.  
  61.  
  62. VAR sysbase[04F2H]: PtrSYSHDR;
  63.  
  64.  
  65. PROCEDURE Syshdr (): PtrSYSHDR;
  66. VAR stack: ADDRESS;
  67.     sys:   PtrSYSHDR;
  68. BEGIN
  69.  ASSEMBLER
  70.   MOVE.L  #0, -(SP)
  71.   MOVE.W  #32, -(SP)
  72.   TRAP    #1
  73.   ADDQ.L  #6, SP
  74.   MOVE.L  D0, stack(A6)
  75.   MOVE.L  sysbase, sys(A6)
  76.   MOVE.L  stack(A6), -(SP)
  77.   MOVE.W  #32, -(SP)
  78.   TRAP    #1
  79.   ADDQ.L  #6, SP
  80.  END;
  81.  RETURN sys;
  82. END Syshdr;
  83.  
  84.  
  85. END MagicTypes.
  86.